Scene Storm/Scene Storm - Volume 1.iso/coding/c/vbcc/machines/amiga68k/libsrc/_lmodu.c

Text File | 1995-07-11 | 250 b | 15 lines

unsigned long _lmodu(unsigned long z,unsigned long n)
{
    unsigned long t=1;
    if(!n) return(0);
    while(n<=0xffffffff/2&&n<=z/2){
        n*=2;t++;
    }
    while(t){
        if(z>=n){ z-=n;}
        t--;
        n/=2;
    }
    return(z);
}